home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Clinical Endocrinology
/
Clinical Endocrinology.iso
/
mac
/
00000000
/
01000000
/
01020010
/
Shared.dir
/
00966_Script_More Menu Scripts
< prev
next >
Wrap
Text File
|
1995-11-17
|
2KB
|
78 lines
on menuRollOver
global jumpFrame
if rollOver(12) = true then
put the frame into jumpFrame
sound playFile 1, "Wizz.aif"
puppetsOn
go frame "menu"
end if
end menuRollOver
----------------------------------------
on scaleMenuBox
global menuSwitch
puppetSprite 15, true
put the left of sprite 15 into theLeft
put the top of sprite 15 into theTop
put the right of sprite 15 into theRight
put the bottom of sprite 17 into theBottom
spriteBox 15, theLeft, theTop, theRight, theBottom + 8
updateStage
repeat with i = 15 to 17
set the visibility of sprite i to true
end repeat
set menuSwitch = "on"
end scaleMenuBox
-------------------------------------------------------------------
on goHyperLink HyperLinkList
global hardDisk, pathToMovie
put the mouseV into clickLoc
put the clickOn into whichSprite
put the number of lines in field HyperLinkList into theLines
put the top of sprite whichSprite into theTop
put the bottom of sprite whichSprite - theTop into theDepth
put theDepth / theLines into theIncrement
put clickLoc - theTop into UserLineLoc
put ( UserLineLoc / theIncrement ) + 1 into lineChoice
if lineChoice > theLines then set lineChoice = theLines
put line lineChoice of field HyperLinkList into theLineText
put the number of words in theLineText into lastWord
if word 1 of theLineText = "frame" then
put word 2 of theLineText into theFrame
put "go frame " & theFrame into theScript
do theScript -- handler to move the slider to the correct location
calcSlider
else
-- script for a movie link
put word 2 of theLineText into theFrame
put word 3 to lastWord of theLineText into textToStrip
stripMoviePath textToStrip
put "go frame " & theFrame && "of movie " & QUOTE & hardDisk ┬
& pathToMovie & QUOTE into theScript
keepHistory
do theScript
init
put value(theFrame) into theFrameNumber
if theFrameNumber > 1 then
calcSlider
end if
end if
end goHyperLink
-------------------------------------------------------------------